1 FOR i=&A53CTO&A554:READa$:POKEi,VAL("&"+a$):NEXT:INPUT"Location";lo:INPUT"Longueur";ln:INPUT"Execution (0 si non)";exc:lo$=HEX$(lo):ln$+HEX$(ln):exc$=HEX$(exc):POKE&A543,VAL("&"+RIGHT$(lo$,2)):POKE&A544,VAL("&"+LEFT$(lo$,2))
2 POKE &A546,VAL("&"+RIGHT$(ln$,2)):POKE&A547,VAL("&"+LEFT$(ln$,2)):IFexc<>0thenPOKE&A551,&C3:POKE&A552,VAL("&"+LEFT$(exc,2):POKE&A553,VAL("&"+LEFT$(exc,2)):PRINT"Pressez PLAY puis une touche":CALL&BB06:CALL42300:DATA11,00,00,CD,A1,BC,CD,7A,BC,CD,71,BC,00,00,00,C9